home *** CD-ROM | disk | FTP | other *** search
/ Extra Heft 12 / Extra Heft12.bin / input64 / 02_88.d64 / safari (.txt) < prev    next >
Commodore BASIC  |  1995-08-18  |  20KB  |  708 lines
  1. 10 IFPEEK(50307)<>120THEN40
  2. 20 IFPEEK(50308)<>76THEN40
  3. 30 POKE50257,0
  4. 40 GOSUB6800
  5. 45 PRINTCHR$(142)CHR$(8)
  6. 50 POKE53281,11
  7. 60 A5=58640:GOTO210
  8. 70 OPEN1,0
  9. 80 GET#1,A$
  10. 90 IFA$=CHR$(13)THEN200
  11. 100 IFA$=CHR$(32)THEN160
  12. 110 A1=LEN(B$)
  13. 120 IFA$=CHR$(20)ANDA1>0THEN160
  14. 130 IFA1=>A2THENA1$=LEFT$(B$,A2):B$=A1$:GOTO80
  15. 140 IFA=1THENIFA$<CHR$(48)ORA$>CHR$(57)THEN80
  16. 150 IFA=0THENIFA$<CHR$(65)ORA$>CHR$(90)THEN80
  17. 160 B$=B$+A$
  18. 170 POKE214,A3:POKE211,A4:SYSA5:PRINTB$;"[164] "
  19. 180 IFA$=CHR$(20)THENA1$=LEFT$(B$,A1-1):B$=A1$
  20. 190 GOTO80
  21. 200 CLOSE1:RETURN
  22. 210 PRINTCHR$(147)
  23. 220 IFGH=0THENGH=1
  24. 230 GOTO240
  25. 240 PRINTCHR$(147)"[159]        "D2$"[146]"
  26. 250 PRINT"[158] [213][192][174][176][192][174][176][192][174][176][192][174] [176][192][201] [178]  [192][174][176][192][174][176][192][174][213][192][174][176][192][174][176][192][201]"
  27. 260 PRINT" [202][192][201][171][192][179][171][192] [171][192][179] [171][178][203] [221][182][161] [221][171][192][179][171][192] [221][176][201][171][192] [171][178][203]"
  28. 270 PRINT" [173][192][203][177] [177][173]  [177] [177] [177][202][192] [177]  [173][189][177] [177][173][192][189][173][192][203][173][192][189][177][202][192]"
  29. 280 PRINT"[159]        "D2$"[146]"
  30. 290 PRINT"[144] [223]     "D2$"[146][169]"
  31. 300 PRINT"[144]  [223]   "D2$"[146][169]":IFFF=1THENRETURN
  32. 310 PRINTTAB(7)"[144][169]   "D1$D1$"[223]"
  33. 320 PRINTTAB(7)"[207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208]"
  34. 330 PRINTTAB(7)"[180]V O N  REINHOLD VOSSLER[170]"
  35. 340 PRINTTAB(7)"[180]   "D1$D1$"[170]"
  36. 350 PRINTTAB(7)"[180] TASTE   S  T  A  R  T [170]"
  37. 360 PRINTTAB(7)"[204][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][186]"
  38. 370 PRINTTAB(7)"[144][223]   "D1$D1$"[146][169]"
  39. 380 PRINT"[144]  [169]   "D2$"[223][146]"
  40. 390 PRINT"[144] [169]     "D2$"[159][146]"
  41. 400 PRINT"[159]        "D2$"[146]"
  42. 410 PRINT"[158] [213][192][174][176][192][174][176][192][174][176][192][174] [176][192][201] [178]  [192][174][176][192][174][176][192][174][213][192][174][176][192][174][176][192][201]"
  43. 420 PRINT" [202][192][201][171][192][179][171][192] [171][192][179] [171][178][203] [221][182][161] [221][171][192][179][171][192] [221][176][201][171][192] [171][178][203]"
  44. 430 PRINT" [173][192][203][177] [177][173]  [177] [177] [177][202][192] [177]  [173][189][177] [177][173][192][189][173][192][203][173][192][189][177][202][192]"
  45. 440 PRINT"[159]        "D2$"[146]"
  46. 445 POKE198,0
  47. 450 GETB$:IFB$=""THEN450
  48. 460 PRINTCHR$(19)""
  49. 470 FORA=1TO7
  50. 480 PRINT"  "D2$
  51. 490 NEXTA
  52. 500 POKE53280,11:POKE53281,11
  53. 510 PRINTCHR$(19)" MAX.8 SPIELER:[164] "
  54. 520 B$="":A=1:A2=1:A3=9:A4=15
  55. 530 GOSUB70
  56. 540 CC=VAL(B$):IFCC<1ORCC>8THEN510
  57. 550 FORB=1TOCC
  58. 560 GE(B)=70000
  59. 570 PRINT"[145] SPIELER:";B;"[157] DEIN NAME:[164]          "
  60. 580 B$="":A=0:A2=9:A3=9:A4=22
  61. 590 GOSUB70
  62. 600 A$(B)=B$
  63. 610 J1(1,B)=4:J2(1,B)=0:J3(1,B)=50:J4(1,B)=10:J5(1,B)=10:J6(1,B)=0
  64. 620 J1(2,B)=3:J2(2,B)=0:J3(2,B)=0:J4(2,B)=14:J5(2,B)=10:J6(2,B)=12
  65. 630 J1(3,B)=0:J2(3,B)=0:J3(3,B)=0:J4(3,B)=12:J5(3,B)=16:J6(3,B)=20
  66. 640 J1(4,B)=4:J2(4,B)=0:J3(4,B)=0:J4(4,B)=10:J5(4,B)=12:J6(4,B)=20
  67. 650 J1(5,B)=3:J2(5,B)=15:J3(5,B)=0:J4(5,B)=5:J5(5,B)=0:J6(5,B)=0
  68. 660 J1(6,B)=1:J2(6,B)=10:J3(6,B)=0:J4(6,B)=3:J5(6,B)=0:J6(6,B)=0
  69. 670 NEXTB
  70. 680 Z1$(1)=" "+D1$+"ELEFANTENTRUPPE"
  71. 690 Z1$(2)="  "+D1$+"LOEWENTRUPPE"
  72. 700 Z1$(3)=" "+D1$+"EISBAERENTRUPPE"
  73. 710 Z1$(4)="   "+D1$+"TIGERTRUPPE"
  74. 720 Z1$(5)=" "+D1$+"PAPAGEIENTRUPPE"
  75. 730 Z1$(6)="         WELLENSITTICHTRUPPE"
  76. 740 V$(1)="ELEFANTEN:":V$(2)="LOEWEN   :":V$(3)="EISBAEREN:":V$(4)="TIGER    :"
  77. 750 V$(5)="PAPAGEIEN:":V$(6)="WELLENSIT:"
  78. 760 NR=1:AT=80
  79. 770 :
  80. 780 FORB=1TOCC
  81. 790 IFB=1THENRU=RU+1
  82. 800 IFRU=1THENNR=1
  83. 810 M1=INT(600*RND(1))+4200:M2=INT(M1/1.8):M3=INT(M2/1.7):M4=INT(M3/1.5)
  84. 820 AM=INT((EE(B,1)+EE(B,2)+EE(B,3)+EE(B,4)+(EE(B,5)+(EE(B,6)/100))/20))+50
  85. 830 AM=AM+INT(GE(B)/3200)+(BE(B,1)+BE(B,2)+BE(B,3)+BE(B,4)+BE(B,5)+BE(B,6)*40)
  86. 840 IFAM<ATTHENAT=AT-4
  87. 850 IFAM>ATTHENAT=AT+4
  88. 860 KY=INT(EE(B,1)*380)+(EE(B,2)*390)+(EE(B,3)*480)+(EE(B,4)*540)+(EE(B,5)*10)
  89. 870 KY=KY+INT(EE(B,6)*.5)
  90. 880 AU=INT(GE(B)-KR(B))
  91. 890 IFAU/134000>ER(B)THENER(B)=ER(B)+1
  92. 900 L1=INT(6000*RND(1))+14000
  93. 910 L2=INT(200*RND(1))+300
  94. 920 L3=INT(30*RND(1))+10
  95. 930 L4=INT(1000*RND(1))+600
  96. 940 L5=INT(400*RND(1))+1200
  97. 950 L6=INT(2400*RND(1))+2800
  98. 960 PRINTCHR$(147)"[144][176]"D$"[174]"
  99. 970 PRINT"[221]        "D1$D1$"F7 SAFARI[146][144][221]"
  100. 980 PRINT"[173]"D$"[189]"
  101. 990 POKE214,1:POKE211,1:SYS58640:PRINT"";ER(B)"[157][144]<:";A$(B)
  102. 1000 PRINT"[145][144]>"
  103. 1010 FORA=1TO6
  104. 1020 IFP(A)=0ANDPR(B,A)>0THENMA=MA+1:P(A)=1
  105. 1030 NEXTA
  106. 1040 POKE214,1:POKE211,18:SYS58640:PRINT"MONAT:";RU
  107. 1045 POKE198,0
  108. 1050 IFER(B)=10THEN6620
  109. 1060 PRINTTAB(18)"MANNSCHAFT  :";MA
  110. 1070 PRINTTAB(18)"SCHIFFE GEB.:";SC
  111. 1080 PRINTTAB(18)"BARGELD:";GE(B);"[157],-DM"
  112. 1090 IFNR=0THENPRINT" [154]EINGETROFFEN[146]":GOTO1150
  113. 1100 PRINTTAB(1)" [154]  BESTAND  [146]         AUSRUESTUNG[146][144]      "
  114. 1110 FORA=1TO6
  115. 1120 PRINTTAB(1)"";V$(A);EE(B,A)
  116. 1130 NEXTA
  117. 1140 GOTO1350
  118. 1150 PRINT" ";V$(1);EL(B)
  119. 1160 PRINT" ";V$(2);LO(B)
  120. 1170 PRINT" ";V$(3);EI(B)
  121. 1180 PRINT" ";V$(4);TG(B)
  122. 1190 PRINT" ";V$(5);PA(B)
  123. 1200 PRINT" ";V$(6);WE(B)
  124. 1210 PRINTTAB(17)"[145][145][145][145][145][145][145][145][145]5000,-DM PRO RUNDE"
  125. 1220 PRINTTAB(17)"TIERVERPFL.:";KY;"[157],-DM"
  126. 1230 GE(B)=GE(B)+5000-KY
  127. 1240 FORA=1TO6:V1=V1+INT(VE(B,A)*3400):VE(B,A)=0:NEXTA
  128. 1250 IFV1>0THENPRINTTAB(17)"VERSICH.:";V1;"[157],-DM":GE(B)=GE(B)-V1:V1=0
  129. 1260 EE(B,1)=EE(B,1)+EL(B)
  130. 1270 EE(B,2)=EE(B,2)+LO(B)
  131. 1280 EE(B,3)=EE(B,3)+EI(B)
  132. 1290 EE(B,4)=EE(B,4)+TG(B)
  133. 1300 EE(B,5)=EE(B,5)+PA(B)
  134. 1310 EE(B,6)=EE(B,6)+WE(B)
  135. 1320 IFNR=0THENNR=1:PRINTTAB(22)"TASTE"
  136. 1330 GETB$:IFB$=""THEN1330
  137. 1340 GOTO1040
  138. 1350 FORA=1TO6
  139. 1360 POKE214,10+(A*2):POKE211,16:SYSA5:PRINT"     ..........       "
  140. 1370 IFBE(B,A)>0THENPRINTTAB(22)"[145]EINGEKAUFT"
  141. 1380 NEXTA
  142. 1390 C$(D)="":C$(1)=CHR$(18):D=1
  143. 1395 POKE198,0
  144. 1400 POKE214,4:POKE211,1:SYSA5:PRINTC$(1)"AUSRUESTUNG[146]"
  145. 1410 PRINTC$(2)"MANNSCHAFT[146]"
  146. 1420 PRINTC$(3)"SCHIFFE BU.[146]"
  147. 1430 PRINTC$(4)"VERKAUF[146]"
  148. 1440 PRINTC$(5)"[150]KREDIT[146]"
  149. 1450 GETB$:IFB$=""THEN1450
  150. 1460 IFB$=CHR$(136)THEN4510
  151. 1470 IFB$=CHR$(13)THEN1510
  152. 1480 IFB$=""THENLF=0:D=D+1:C$(D)=CHR$(18):C$(D-1)="":IFD>5THEN1390
  153. 1490 IFB$="[145]"THENLF=0:D=D-1:C$(D)=CHR$(18):C$(D+1)="":IFD<1THEN1390
  154. 1500 GOTO1395
  155. 1510 ONDGOTO1520,2150,2890,3390,4010
  156. 1520 PRINTCHR$(147)"[176]"D$"[174]"
  157. 1530 PRINT"[221]       "D1$D1$"(F1 MENUE)[221]"
  158. 1540 PRINT"[173]"D$"[189]"
  159. 1550 POKE214,1:POKE211,1:SYS58640:PRINT"SPIELER ";A$(B)
  160. 1560 PRINTTAB(8)"[144] BARGELD:";GE(B);"[157],-DM       "
  161. 1570 PRINTTAB(1)"WELCHE TRUPPE !"
  162. 1580 PRINTTAB(1)D$
  163. 1590 :
  164. 1600 C$(D)="":C$(1)=CHR$(18):D=1
  165. 1605 POKE198,0
  166. 1610 FORA=1TO6
  167. 1620 POKE214,7+(A*2):POKE211,1:SYSA5:PRINTC$(A);V$(A);"[146]"
  168. 1630 NEXTA
  169. 1640 GETB$:IFB$=""THEN1640
  170. 1650 IFB$=CHR$(13)THEND0=D:GOTO1700
  171. 1660 IFB$=""THEND=D+1:C$(D)=CHR$(18):C$(D-1)="":IFD>6THEN1600
  172. 1670 IFB$=CHR$(133)THEN960
  173. 1680 IFB$="[145]"THEND=D-1:C$(D)=CHR$(18):C$(D+1)="":IFD<1THEN1600
  174. 1690 GOTO1605
  175. 1700 POKE214,6:POKE211,18:SYSA5:PRINT"BENOETIGTES MATERIAL"
  176. 1710 C$(D)="":C$(1)=CHR$(18):D=1
  177. 1720 GL=0
  178. 1730 GL=GL+(J1(D0,B)*L1)
  179. 1740 GL=GL+(J2(D0,B)*L2)
  180. 1750 GL=GL+(J3(D0,B)*L3)
  181. 1760 GL=GL+(J4(D0,B)*L4)
  182. 1770 GL=GL+(J5(D0,B)*L5)
  183. 1780 GL=GL+(J6(D0,B)*L6)
  184. 1790 POKE214,21:POKE211,1:SYS A5:PRINT"[153]GES.PREIS AUSRUESTUNG:";GL;"[157],-DM    "
  185. 1800 IF GL<1THENPRINT"[145]    [150]AUSRUESTUNG IST KOMPLETT[146]      "
  186. 1810 IF GL=0THEN BE(B,D0)=1
  187. 1820 POKE214,4:POKE211,8:SYS A5:PRINT"[144] BARGELD:";GE(B);"[157],-DM      "
  188. 1830 IF GL=0THEN 1850
  189. 1840 GOTO 1860
  190. 1850 C$(D)="":C$(1)=CHR$(18):D=1
  191. 1855 POKE198,0
  192. 1860 POKE214,9:POKE211,20:SYS A5:PRINTC$(1)"LANDROVER:[146]";J1(D0,B);"[157]      "
  193. 1870 PRINTTAB(19)C$(2)"NETZE    :[146]";J2(D0,B);"[157]      "
  194. 1880 PRINTTAB(19)C$(3)"SEILE    :[146]";J3(D0,B);"[157]      "
  195. 1890 PRINTTAB(19)C$(4)"ZELTE    :[146]";J4(D0,B);"[157]      "
  196. 1900 PRINTTAB(19)C$(5)"GEWEHRE  :[146]";J5(D0,B);"[157]      "
  197. 1910 PRINTTAB(19)C$(6)"KAEFIGE  :[146]";J6(D0,B);"[157]      "
  198. 1920 GET B$:IFB$=""THEN1920
  199. 1930 IF B$=CHR$(13)THEN1980
  200. 1940 IF B$=""THEND=D+1:C$(D)=CHR$(18):C$(D-1)="":IF D>6THEN1850
  201. 1950 IF B$=CHR$(133)THEN 1520
  202. 1960 IF B$="[145]"THEND=D-1:C$(D)=CHR$(18):C$(D+1)="":IF D<1THEN 1850
  203. 1970 GOTO 1855
  204. 1980 :
  205. 1990 ON D GOTO 2000,2020,2040,2060,2080,2100
  206. 2000 IF L1*J1(D0,B)<GE(B)THEN GE(B)=GE(B)-(L1*J1(D0,B)):J1(D0,B)=0:GOTO1720
  207. 2010 GOTO 2110
  208. 2020 IF L2*J2(D0,B)<GE(B)THEN GE(B)=GE(B)-(L2*J2(D0,B)):J2(D0,B)=0:GOTO1720
  209. 2030 GOTO 2110
  210. 2040 IF L3*J3(D0,B)<GE(B)THEN GE(B)=GE(B)-(L3*J3(D0,B)):J3(D0,B)=0:GOTO1720
  211. 2050 GOTO 2110
  212. 2060 IF L4*J4(D0,B)<GE(B)THEN GE(B)=GE(B)-(L4*J4(D0,B)):J4(D0,B)=0:GOTO1720
  213. 2070 GOTO 2110
  214. 2080 IF L5*J5(D0,B)<GE(B)THEN GE(B)=GE(B)-(L5*J5(D0,B)):J5(D0,B)=0:GOTO1720
  215. 2090 GOTO 2110
  216. 2100 IF L6*J6(D0,B)<GE(B)THEN GE(B)=GE(B)-(L6*J6(D0,B)):J6(D0,B)=0:GOTO1720
  217. 2110 POKE214,23:POKE211,20:SYS A5:PRINT"GEHT NICHT"
  218. 2120 FORA=1TO400:NEXTA
  219. 2130 PRINTTAB(20)"[145]   "D1$
  220. 2140 GOTO 1860
  221. 2150 PRINTCHR$(147)"[176]"D$"[174]"
  222. 2160 PRINT"[221]       "D1$D1$"(F1 MENUE)[221]"
  223. 2170 PRINT"[173]"D$"[189]"
  224. 2180 POKE214,1:POKE211,1:SYS 58640:PRINT"SPIELER ";A$(B)
  225. 2190 PRINT"[144]BARGELD:";GE(B);"[157],-DM       "
  226. 2200 PRINT"WELCHEN BEREICH     MANNSCHAFT"
  227. 2210 C$(D)="":C$(1)=CHR$(18):D=1
  228. 2215 POKE198,0
  229. 2220 FOR A=1 TO 6
  230. 2230 POKE214,6+(A*2):POKE211,1:SYS A5:PRINTC$(A);V$(A);"[146]"
  231. 2240 NEXT A
  232. 2250 GET B$:IFB$=""THEN2250
  233. 2260 IF B$=CHR$(133)THEN 960
  234. 2270 IF B$=CHR$(13)THEN D0=D:GOTO 2310
  235. 2280 IF B$=""THEND=D+1:C$(D)=CHR$(18):C$(D-1)="":IF D>6THEN2210
  236. 2290 IF B$="[145]"THEND=D-1:C$(D)=CHR$(18):C$(D+1)="":IF D<1THEN 2210
  237. 2300 GOTO 2215
  238. 2310 IF BE(B,D)>0THEN 2360
  239. 2320 PRINT" DU HAST NICHT DIE AUSRUESTUNG[146] SPACE"
  240. 2330 WAIT 198,1
  241. 2340 PRINT"[145]                                    "
  242. 2350 GOTO 2220
  243. 2360 IF IN(B,D)>0THEN PRINT" DAS GEHT NICHT MEHR[146]   SPACE":GOTO 2330
  244. 2370 POKE214,4:POKE211,0:SYS 58640:PRINT"[144]BARGELD:";GE(B);"[157],-DM          "
  245. 2380 IF IN(B,D0)>100 THEN IN(B,D0)=100
  246. 2390 PRINTTAB(23)"[145]ERFOLG:";IN(B,D0);"[157] %"
  247. 2400 IF PR(B,D0)>100 THEN PR(B,D0)=100
  248. 2410 PP(D0)=PR(B,D0)
  249. 2420 POKE214,6:POKE211,30:SYS A5:PRINT;PR(B,D0);"[157] %     "
  250. 2430 POKE214,20:POKE211,20:SYS A5:PRINT"SPEZIALIST:";L1(B,D0)
  251. 2440 PRINTD1$D1$"FACHMANN  :";L2(B,D0)
  252. 2450 PRINTD1$D1$"ANGELERNTE:";L3(B,D0)
  253. 2460 PRINTTAB(20)"UNGELERNT.:";L4(B,D0)
  254. 2470 C$(D)="":C$(1)=CHR$(18):D=1
  255. 2475 POKE198,0
  256. 2480 POKE214,7:POKE211,16:SYS A5:PRINTC$(1)"SPEZIALIST:[146]";M1;"[157],-DM"
  257. 2490 PRINTTAB(16);C$(2)"FACHMANN  :[146]";M2;"[157],-DM"
  258. 2500 PRINTTAB(16);C$(3)"ANGELERNTE:[146]";M3;"[157],-DM"
  259. 2510 PRINTTAB(16);C$(4)"UNGELERNT :[146]";M4;"[157],-DM"
  260. 2520 GET B$:IFB$=""THEN2520
  261. 2530 IF B$=CHR$(13)THEN 2590
  262. 2540 IF B$=CHR$(133)THEN2150
  263. 2550 IF B$=""THEN D=D+1:C$(D)=CHR$(18):C$(D-1)="":IF D>4THEN2470
  264. 2560 IF B$="[145]"THEN D=D-1:C$(D)=CHR$(18):C$(D+1)="":IF D<1THEN 2470
  265. 2570 GOTO 2475
  266. 2580 IF D=5 THEN PRINTTAB(17)"[145]BEREICH":GOTO 2150
  267. 2590 B$="":A=1:A2=2:A3=18:A4=29
  268. 2600 POKE214,18:POKE211,21:SYS A5:PRINT"WIEVIEL:[164]"
  269. 2610 GOSUB 70
  270. 2620 PRINTTAB(21)"[145]           "
  271. 2630 C=VAL(B$):IF C=0 THEN 2470
  272. 2640 ON D GOTO 2650,2700,2750,2800
  273. 2650 IF(C+L1(B,D0))>3THEN 2850
  274. 2660 IF(M1*C)<GE(B)THENGE(B)=GE(B)-(M1*C):PR=INT((5*RND(1))+4*C):GOTO 2680
  275. 2670 GOTO 2850
  276. 2680 L1(B,D0)=L1(B,D0)+C:IN(B,D0)=IN(B,D0)+(C*29)
  277. 2690 PR(B,D0)=PR(B,D0)+PR:GOTO 2370
  278. 2700 IF(C+L2(B,D0))>5THEN 2850
  279. 2710 IF(M2*C)<GE(B)THENGE(B)=GE(B)-(M2*C):PR=INT((3*RND(1))+5*C):GOTO 2730
  280. 2720 GOTO 2850
  281. 2730 L2(B,D0)=L2(B,D0)+C:IN(B,D0)=IN(B,D0)+(C*18)
  282. 2740 PR(B,D0)=PR(B,D0)+PR:GOTO 2370
  283. 2750 IF(C+L3(B,D0))>8THEN 2850
  284. 2760 IF(M3*C)<GE(B)THEN GE(B)=GE(B)-(M3*C):PR=INT((3*RND(1))+7*C):GOTO 2780
  285. 2770 GOTO 2850
  286. 2780 L3(B,D0)=L3(B,D0)+C:IN(B,D0)=IN(B,D0)+(C*5)
  287. 2790 PR(B,D0)=PR(B,D0)+PR:GOTO 2370
  288. 2800 IF(C+L4(B,D0))>20THEN 2850
  289. 2810 IF(M4*C)<GE(B)THEN GE(B)=GE(B)-(M4*C):PR=INT((4*RND(1))+9*C):GOTO 2830
  290. 2820 GOTO 2850
  291. 2830 L4(B,D0)=L4(B,D0)+C:IN(B,D0)=IN(B,D0)+C*2
  292. 2840 PR(B,D0)=PR(B,D0)+PR:GOTO 2370
  293. 2850 PRINTTAB(22)"[145]DAS GEHT NICHT"
  294. 2860 FOR A=1TO 400:NEXTA
  295. 2870 PRINTTAB(22)"[145]    "D1$
  296. 2880 GOTO 2370
  297. 2890 PRINTCHR$(147)"[176]"D$"[174]"
  298. 2900 PRINT"[221]                                     [221]"
  299. 2910 PRINT"[171]"D$"[179]"
  300. 2920 IF ZI=0THEN 2940
  301. 2930 GOTO 3090
  302. 2940 S(1)=INT(4000*RND(1))+6000
  303. 2950 S(2)=INT(4000*RND(1))+6000
  304. 2960 S(3)=INT(4000*RND(1))+6000
  305. 2970 S(4)=INT(6000*RND(1))+8000
  306. 2980 S(5)=INT(3000*RND(1))+5000
  307. 2990 S(6)=INT(3000*RND(1))+4500
  308. 3000 ZI=1
  309. 3010 GOTO 3090
  310. 3020 SC=SC+1
  311. 3030 PRINT"[145]AUSRUESTUNG VERSICHERN (J/N)"
  312. 3035 POKE198,0
  313. 3040 GET A$:IF A$=""THEN 3040
  314. 3050 IF A$="J"THEN VE(B,VAL(B$))=1:GOTO 3080
  315. 3060 IF A$="N"THEN 3080
  316. 3070 GOTO 3040
  317. 3080 PRINT"[145]        "D1$D1$
  318. 3090 POKE214,1:POKE211,1:SYS 58640:PRINT"SPIELER ";A$(B)
  319. 3100 PRINT"[221][144]BARGELD:";GE(B);"[157],-DM       "
  320. 3110 PRINT"[171]"D$"[179][145][157][221]"
  321. 3120 PRINT"[221]   [153]SCHIFFSPREISE DER JAGDGRUPPEN[146]     [221]"
  322. 3130 PRINT"[221]   SCHIFFE GEBUCHT:        "D1$"[221]"
  323. 3140 POKE214,6:POKE211,20:SYS 58640:PRINT;SC
  324. 3150 PRINT"[173]"D$"[189][145]"
  325. 3160 FOR A=1 TO 6
  326. 3170 IF PR(B,A)>0 THEN MC=1:PRINT"   ";A;"[146]";V$(A);"[157] TRUPPE:";S(A);"[157],-DM "
  327. 3180 NEXT A
  328. 3190 IFMC<1THEN PRINT"     "D1$"TASTE         "D1$""D1$
  329. 3195 IFMC<1THEN3375
  330. 3200 PRINT"  0 MENUE        "D1$D1$
  331. 3210 PRINT" "D1$
  332. 3220 B$="":A=1:A2=1:A3=22:A4=15
  333. 3230 POKE214,22:POKE211,1:SYS A5:PRINT"WELCHE TRUPPE:[164] "
  334. 3240 GOSUB 70
  335. 3250 POKE214,22:POKE211,1:SYS A5:PRINT"        "D1$
  336. 3260 IF B$="0"THEN 960
  337. 3270 BC=VAL(B$)
  338. 3280 IF BC>6 THEN 3340
  339. 3290 FOR A=1 TO 6
  340. 3300 IF PR(B,A)>0 AND BC=A THEN 3330
  341. 3310 NEXT A
  342. 3320 GOTO 3220
  343. 3330 IF S(A)<GE(B)THEN GE(B)=GE(B)-S(A):PR(B,A)=0:MC=MC-1:M(A)=1:GOTO3020
  344. 3340 PRINTTAB(11)"[145]GEHT NICHT  TASTE"
  345. 3350 GET B$:IF B$=""THEN 3350
  346. 3360 PRINTTAB(11)"[145]                 ":GOTO 3220
  347. 3365 POKE198,0
  348. 3370 POKE198,0
  349. 3375 GET B$:IF B$=""THEN3375
  350. 3380 GOTO 960
  351. 3390 PRINTCHR$(147)"[176]"D$"[174]"
  352. 3400 PRINT"[221]       "D1$D1$"(F1 MENUE)[221]"
  353. 3410 PRINT"[173]"D$"[189]"
  354. 3420 POKE214,1:POKE211,1:SYS 58640:PRINT"SPIELER ";A$(B)
  355. 3430 PRINT"[144] BARGELD:";GE(B);"[157],-DM       "
  356. 3440 PRINTTAB(3)"[154]  BESTAND  [146]"D1$"AUSWAHL ZOO"
  357. 3450 FOR A=1 TO 6
  358. 3460 PRINTTAB(1)"";A;"[146]:";V$(A);EE(B,A);"[157]     "
  359. 3470 NEXT A
  360. 3480 :
  361. 3490 C$(D)="":C$(1)=CHR$(18):D=1
  362. 3495 POKE198,0
  363. 3500 POKE214,7:POKE211,23:SYS A5:PRINTC$(1)"ZOO HAMBURG  [146]"
  364. 3510 PRINTTAB(22)C$(2)"ZOO FRANKFURT[146]"
  365. 3520 PRINTTAB(22)C$(3)"ZOO BERLIN   [146]"
  366. 3530 PRINTTAB(22)C$(4)"ZOO HANNOVER [146]"
  367. 3540 PRINTTAB(22)C$(5)"ZOO MUENCHEN [146]"
  368. 3550 PRINTTAB(22)C$(6)"ZOO STUTTGART[146]"
  369. 3560 GET B$:IFB$=""THEN3560
  370. 3570 IF B$=CHR$(133)THEN 960
  371. 3580 IF B$=CHR$(13)THEN 3620
  372. 3590 IF B$=""THEN D=D+1:C$(D)=CHR$(18):C$(D-1)="":IF D>6THEN 3490
  373. 3600 IF B$="[145]"THEN D=D-1:C$(D)=CHR$(18):C$(D+1)="":IF D<1THEN 3490
  374. 3610 GOTO 3495
  375. 3620 D0=D
  376. 3630 FOR I=1 TO 6
  377. 3640 IF D=I AND Q4(D)=1THEN 3760
  378. 3650 NEXT I
  379. 3660 IF Q4(D)=2THEN 3970
  380. 3670 A=INT(2*RND(1))+1
  381. 3680 IF A<>2THEN Q4(D)=2:GOTO3970
  382. 3690 R1(1,D)=INT(1600*RND(1))+3000
  383. 3700 R1(2,D)=INT(1300*RND(1))+2900
  384. 3710 R1(3,D)=INT(2100*RND(1))+3600
  385. 3720 R1(4,D)=INT(2600*RND(1))+4300
  386. 3730 R1(5,D)=INT(100*RND(1))+150
  387. 3740 R1(6,D)=INT(5*RND(1))+4
  388. 3750 Q4(D)=1
  389. 3760 POKE214,6:POKE211,22:SYS A5:PRINT
  390. 3770 FOR A=1 TO 6
  391. 3780 PRINTTAB(22)" [157]";R1(A,D);"[157] ,-DM       "
  392. 3790 NEXT A
  393. 3800 B$="":A=1:A2=1:A3=22:A4=19
  394. 3810 POKE214,A3:POKE211,2:SYS A5:PRINT"WAS VERKAUFST DU:[164] "
  395. 3820 GOSUB 70
  396. 3830 POKE214,20:POKE211,1:SYS A5:PRINT"        "D1$
  397. 3840 PRINT"          "D1$D1$
  398. 3850 C=VAL(B$)
  399. 3860 IF C<1 OR C>6 THEN3500
  400. 3870 IF EE(B,C)<1THEN 3960
  401. 3880 C1=C:B1$=B$
  402. 3890 B$="":A=1:A2=5:A3=22:A4=20
  403. 3900 POKE214,A3:POKE211,2:SYS A5:PRINT"WIEVIEL VERKA. DU:[164] "
  404. 3910 GOSUB 70
  405. 3920 PRINT"[145]       "D1$D1$
  406. 3930 C=VAL(B$):IF B$=""THEN 3490
  407. 3940 IF C>EE(B,C1)THEN 3960
  408. 3950 EE(B,C1)=EE(B,C1)-C:GE(B)=GE(B)+(C*R1(C1,D)):GOTO 3420
  409. 3960 PRINT"[145]  DAS GEHT NICHT !       TASTE  ":GOTO 3980
  410. 3970 PRINT" ZUR ZEIT KEINE NACHFRAGE !   TASTE"
  411. 3975 POKE198,0
  412. 3980 GET B$:IF B$=""THEN 3980
  413. 3990 PRINT"[145]                                    "
  414. 4000 GOTO 3500
  415. 4010 IF RU<2 THEN 1450
  416. 4020 PRINTCHR$(147)"[176]"D$"[174]"
  417. 4030 PRINT"[221]       "D1$D1$"(F1 MENUE)[221]"
  418. 4040 PRINT"[173]"D$"[189]"
  419. 4050 POKE214,1:POKE211,1:SYS 58640:PRINT"SPIELER ";A$(B)
  420. 4060 PRINT"[144] BARGELD:";GE(B);"[157],-DM       "
  421. 4070 PRINT" [192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  422. 4080 PRINTTAB(13)"    "D1$D1$"[221]"
  423. 4090 PRINTTAB(13)"[145][221]SCHULDEN:";KR(B);"[157],-DM"
  424. 4100 PRINTTAB(13)"[171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][179]"
  425. 4110 KE=0:IF KR(B)>0THEN 4150
  426. 4120 FOR A=1 TO 6
  427. 4130 KE=KE+(BE(B,A)*20000):NEXT A
  428. 4140 KR=INT(GE(B)/10)+KE
  429. 4150 PRINTTAB(13)"    "D1$D1$"[221]"
  430. 4160 IF KR(B)>0THEN PRINTTAB(13)"[145][221]         "D1$:GOTO 4180
  431. 4170 PRINTTAB(13)"[145][221]KREDIT :";KR;"[157],-DM"
  432. 4180 PRINTTAB(13)"[221]   "D1$D1$"[221][157][221][145]"
  433. 4190 IF Q1=1THEN 4210
  434. 4200 IF KR(B)<1 THEN PO(B)=INT(8*RND(1))+5:Q1=1
  435. 4210 PRINTTAB(13)"[221]ZU:";PO(B);"[157] % "D1$
  436. 4220 IF KR(B)>0THEN PRINTTAB(23)"[145]BEWILLIGT"
  437. 4230 PRINTTAB(13)"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  438. 4240 C$(D)="":C$(1)=CHR$(18):D=1
  439. 4245 POKE198,0
  440. 4250 POKE214,6:POKE211,1:SYS A5:PRINTC$(1)"KREDIT AUF.[146]"
  441. 4260 PRINTC$(2)"KREDIT BEZ.[146]"
  442. 4270 GET B$:IFB$=""THEN4270
  443. 4280 IF B$=CHR$(13)THEN 4330
  444. 4290 IF B$=""THEND=D+1:C$(D)=CHR$(18):C$(D-1)="":IF D>2THEN 4240
  445. 4300 IF B$=CHR$(133)THEN 960
  446. 4310 IF B$="[145]"THEND=D-1:C$(D)=CHR$(18):C$(D+1)="":IF D<1THEN 4240
  447. 4320 GOTO 4245
  448. 4330 ON D GOTO 4340,4410
  449. 4340 B$="":A=1:A2=6:A3=19:A4=19
  450. 4350 POKE214,19:POKE211,1:SYS A5:PRINT"WIEVIEL WILLST DU:[164]"
  451. 4360 GOSUB 70
  452. 4370 C=VAL(B$):IF C<1THEN 4400
  453. 4380 IF C>KR THEN 4470
  454. 4390 GE(B)=GE(B)+C:KR(B)=KR(B)+C
  455. 4400 POKE214,19:POKE211,1:SYS A5:PRINT"     "D1$D1$:GOTO 4050
  456. 4410 B$="":A=1:A2=6:A3=19:A4=19
  457. 4420 POKE214,19:POKE211,1:SYS A5:PRINT"WIEVIEL ZAHLST DU:[164]"
  458. 4430 GOSUB 70
  459. 4440 C=VAL(B$):IF C<1THEN 4400
  460. 4450 IF C>KR(B)THEN 4470
  461. 4460 GE(B)=GE(B)-C:KR(B)=KR(B)-C:GOTO 4400
  462. 4470 PRINT" DAS GEHT NICHT TASTE"
  463. 4475 POKE198,0
  464. 4480 GET B$:IF B$=""THEN 4480
  465. 4490 PRINT"[145] "D1$D1$
  466. 4500 GOTO 4400
  467. 4510 FOR A=1 TO 6
  468. 4520 MZ=MZ+M(A)
  469. 4530 NEXT A
  470. 4540 IF SC<MZ OR SC<1 THEN 4570
  471. 4550 IF SC<MA THEN 4570
  472. 4560 PRINTCHR$(147):GOTO 4640
  473. 4570 PRINTCHR$(147)"DU HAST (KEINE/ZUWENIG) SCHIFFE GEBUCHT"
  474. 4580 PRINT"     EINGABE RICHTIG !  (J/N)        "
  475. 4590 MZ=0
  476. 4595 POKE198,0
  477. 4600 GET B$:IFB$=""THEN4600
  478. 4610 IF B$="J"THEN 4640
  479. 4620 IF B$="N"THEN LF=0:GOTO 960
  480. 4630 GOTO 4595
  481. 4640 MQ=0:MZ=0:NR=0:ZI=0:AS=0
  482. 4650 EL(B)=0:LO(B)=0:EI(B)=0:TG(B)=0:PA(B)=0:WE(B)=0
  483. 4660 FOR A=1 TO 6
  484. 4670 L1(B,A)=0:L2(B,A)=0:L3(B,A)=0:L4(B,A)=0:P(A)=0:Q4(A)=0:NEXT A
  485. 4690 IF KR(B)>0THEN KR(B)=KR(B)+INT(KR(B)*PO(B)/100/12)
  486. 4700 Q1=0:Q2=0:MA=0
  487. 4710 IF SC<1THEN NEXT B:GOTO 770
  488. 4720 SC=0
  489. 4730 FOR A=1 TO 6
  490. 4740 SE=INT(PP(A)+IN(B,A))/2
  491. 4750 IN(B,A)=0:PP(A)=0
  492. 4760 IF M(A)=0 THEN PR(B,A)=0:NEXT A:NEXT B:M(A)=0:GOTO 770
  493. 4770 M(A)=0
  494. 4780 IF SE<1THEN NEXT A:NEXT B:GOTO 770
  495. 4790 FF=1:GOSUB 240:PRINTTAB(14)"[150]EREIGNISSE[146]"
  496. 4800 PRINTZ1$(A)
  497. 4810 Z1=INT(12*RND(1))+1
  498. 4820 ON A GOTO 4930,5230,5530,5800,6070,6350
  499. 4830 PRINTTAB(11)"KEINE EREIGNISSE"
  500. 4840 IF A=1 AND EL(B)<1THEN EL(B)=2
  501. 4850 IF A=2 AND LO(B)<1THEN LO(B)=2
  502. 4860 IF A=3 AND EI(B)<1THEN EI(B)=2
  503. 4870 IF A=4 AND TG(B)<1THEN TG(B)=1
  504. 4880 IF A=5 AND PA(B)<1THEN PA(B)=16
  505. 4890 IF A=6 AND WE(B)<1THEN WE(B)=178
  506. 4900 PRINTTAB(15)" TASTE"
  507. 4905 POKE198,0
  508. 4910 GET B$:IF B$=""THEN 4910
  509. 4920 NEXTA:NEXT B:GOTO 770
  510. 4930 ON Z1 GOTO4950,5010,5070,5120,5170
  511. 4940 EL(B)=INT((SE/10)*1.8):GOTO 4830
  512. 4950 C1=1:C2=22:C3=4
  513. 4960 PRINTTAB(8)"1 "D3$
  514. 4970 PRINTTAB(8)"22 "D4$
  515. 4980 PRINTTAB(8)"4 "D5$
  516. 4990 SE=SE-(C3*5):J1(A,B)=C1:J3(A,B)=C2:BE(A,B)=0
  517. 5000 EL(B)=INT((SE/10)*1.8):GOTO 4900
  518. 5010 C1=3:C2=2:C3=4
  519. 5020 PRINTTAB(8)"3 "D6$
  520. 5030 PRINTTAB(8)"2 "D7$
  521. 5040 PRINTTAB(8)"4 "D5$
  522. 5050 SE=SE-(C3*5):J5(A,B)=C1:J4(A,B)=C2:BE(A,B)=0
  523. 5060 EL(B)=INT((SE/10)*1.8):GOTO 4900
  524. 5070 C1=4:C2=8:C3=4
  525. 5080 PRINT""D8$:PRINT"   4 ELEFANTEN ZUSAETZLICH ALS BONUS."
  526. 5090 PRINTTAB(8)"8 "D4$
  527. 5100 PRINTTAB(8)"4 "D7$
  528. 5110 J3(A,B)=C2:J4(A,B)=C3:BE(A,B)=0:EL(B)=INT((SE/10)*1.8)+C1:GOTO 4900
  529. 5120 PRINTD9$
  530. 5130 PRINTD$(1)
  531. 5140 VS=INT(30000*RND(1))+90000
  532. 5150 IF VE(B,1)>0THEN PRINTD$(4);VS;"[157],-DM":GE(B)=GE(B)+VS
  533. 5160 BE(B,1)=0:J1(A,B)=4:J3(A,B)=50:J4(A,B)=10:J5(A,B)=10:EL(B)=0:GOTO 4900
  534. 5170 C1=INT(70000*RND(1))+30000
  535. 5180 PRINTD$(2);C1;"[157],-DM"
  536. 5190 PRINTD$(3)
  537. 5200 C1=INT(C1/4)
  538. 5210 PRINTD$(8);C1;"[157],-DM"
  539. 5220 EL(B)=INT((SE/10)*1.8):GE(B)=GE(B)+C1:GOTO 4900
  540. 5230 ON Z1 GOTO5250,5320,5370,5420,5470
  541. 5240 LO(B)=INT((SE/7)*1.6):GOTO 4830
  542. 5250 C1=2:C2=5:C3=6
  543. 5260 PRINTTAB(8)"2 "D3$
  544. 5270 PRINTTAB(8)"5 "D7$
  545. 5280 PRINTTAB(8)"6 "D5$
  546. 5290 SE=SE-(C3*5):J1(A,B)=C1:J4(A,B)=C2:BE(B,A)=0
  547. 5300 C1=5:C2=4:C3=3
  548. 5310 LO(B)=INT((SE/7)*1.6):GOTO 4900
  549. 5320 PRINTTAB(8)"5 "D6$
  550. 5330 PRINTTAB(8)"4 "D7$
  551. 5340 PRINTTAB(8)"3 "D5$
  552. 5350 SE=SE-(C3*5):J5(A,B)=C2:J4(A,B)=C1:BE(B,A)=0
  553. 5360 LO(B)=INT((SE/7)*1.6):GOTO 4900
  554. 5370 C1=3:C2=4:C3=5
  555. 5380 PRINT""D8$:PRINT"    3 LOEWEN ZUSAETZLICH ALS BONUS."
  556. 5390 PRINTTAB(8)"4 "D$(5)
  557. 5400 PRINTTAB(8)"5 "D7$
  558. 5410 J5(A,B)=C2:J4(A,B)=C3:BE(B,A)=0:LO(B)=INT((SE/7)*1.6)+C1:GOTO 4900
  559. 5420 PRINTD9$
  560. 5430 PRINTD$(1)
  561. 5440 VS=INT(30000*RND(1))+90000
  562. 5450 IF VE(B,2)>0THEN PRINTD$(4);VS;"[157],-DM":GE(B)=GE(B)+VS
  563. 5460 BE(B,A)=0:J1(A,B)=3:J4(A,B)=14:J5(A,B)=10:J6(A,B)=12:GOTO 4900
  564. 5470 C1=INT(65000*RND(1))+50000
  565. 5480 PRINTD$(2);C1;"[157],-DM"
  566. 5490 PRINTD$(3)
  567. 5500 C1=INT(C1/4)
  568. 5510 PRINTD$(8);C1;"[157],-DM"
  569. 5520 LO(B)=INT((SE/7)*1.6):GE(B)=GE(B)+C1:GOTO 4900
  570. 5530 ON Z1 GOTO5550,5600,5650,5690,5740
  571. 5540 EI(B)=INT((SE/10)*1.4):GOTO 4830
  572. 5550 PRINTTAB(8)"5 KAEFIGE SIND UNBRAUCHBAR"
  573. 5560 PRINTTAB(8)"2 "D7$
  574. 5570 PRINTTAB(8)"4 "D5$
  575. 5580 SE=SE-28:J6(A,B)=2:J4(A,B)=2:BE(B,A)=0
  576. 5590 EI(B)=INT((SE/10)*1.4):GOTO 4900
  577. 5600 PRINTTAB(8)"4 "D6$
  578. 5610 PRINTTAB(8)"5 "D7$
  579. 5620 PRINTTAB(8)"8 "D5$
  580. 5630 SE=SE-50:J5(A,B)=4:J4(A,B)=5:BE(B,A)=0
  581. 5640 EI(B)=INT((SE/10)*1.4):GOTO 4900
  582. 5650 PRINT""D8$:PRINT"   3 EISBAEREN ZUSAETZLICH ALS BONUS."
  583. 5660 PRINTTAB(8)"2 "D$(5)
  584. 5670 PRINTTAB(8)"2 "D7$
  585. 5680 J5(A,B)=2:J4(A,B)=2:BE(B,A)=0:EI(B)=INT((SE/10)*1.4)+3:GOTO 4900
  586. 5690 PRINTD9$
  587. 5700 PRINTD$(1)
  588. 5710 VS=INT(30000*RND(1))+90000
  589. 5720 IF VE(B,3)>0THEN PRINTD$(4);VS;"[157],-DM":GE(B)=GE(B)+VS
  590. 5730 BE(B,A)=0:J4(A,B)=8:J5(A,B)=8:J6(A,B)=20:GOTO 4900
  591. 5740 C1=INT(50000*RND(1))+70000
  592. 5750 PRINTD$(2);C1;"[157],-DM"
  593. 5760 C2=INT(C1/6)
  594. 5770 PRINTD$(3)
  595. 5780 PRINTD$(8);C2;"[157],-DM"
  596. 5790 EI(B)=INT((SE/10)*1.4):GE(B)=GE(B)+C2:GOTO 4900
  597. 5800 ON Z1 GOTO5820,5870,5920,5960,6010
  598. 5810 TG(B)=INT((SE/10)*1.2):GOTO 4830
  599. 5820 PRINTTAB(8)"2 "D3$
  600. 5830 PRINTTAB(8)"5 "D7$
  601. 5840 PRINTTAB(8)"7 "D5$
  602. 5850 SE=SE-40:J1(A,B)=2:J4(A,B)=5:BE(B,A)=0
  603. 5860 TG(B)=INT((SE/10)*1.2):GOTO 4900
  604. 5870 PRINTTAB(8)"6 "D6$
  605. 5880 PRINTTAB(8)"3 "D7$
  606. 5890 PRINTTAB(8)"4 "D5$
  607. 5900 SE=SE-24:J5(A,B)=6:J4(A,B)=3:BE(B,A)=0
  608. 5910 TG(B)=INT((SE/10)*1.2):GOTO 4900
  609. 5920 PRINT""D8$:PRINT"     2 TIGER ZUSAETZLICH ALS BONUS."
  610. 5930 PRINTTAB(8)"3 "D$(5)
  611. 5940 PRINTTAB(8)"4 "D7$
  612. 5950 J5(A,B)=3:J4(A,B)=4:BE(B,A)=0:TG(B)=INT((SE/10)*1.2)+2:GOTO 4900
  613. 5960 PRINTD9$
  614. 5970 PRINTD$(1)
  615. 5980 VS=INT(40000*RND(1))+170000
  616. 5990 IF VE(B,4)>0THEN PRINTD$(4);VS;"[157],-DM":GE(B)=GE(B)+VS
  617. 6000 BE(B,A)=0:J1(A,B)=4:J4(A,B)=10:J5(A,B)=12:J6(A,B)=20:GOTO 4900
  618. 6010 C1=INT(40000*RND(1))+80000
  619. 6020 C2=INT(C1/6)
  620. 6030 PRINTD$(2);C1;"[157],-DM"
  621. 6040 PRINTD$(3)
  622. 6050 PRINTD$(8);C2;"[157],-DM"
  623. 6060 TG(B)=INT((SE/10)*1.2):GE(B)=GE(B)+C2:GOTO 4900
  624. 6070 ON Z1 GOTO6090,6140,6190,6240,6290
  625. 6080 PA(B)=INT(SE*2):GOTO 4830
  626. 6090 PRINTTAB(8)"1 "D3$
  627. 6100 PRINTTAB(8)"2 "D7$
  628. 6110 PRINTTAB(8)"2 "D5$
  629. 6120 SE=SE-20:J1(A,B)=1:J4(A,B)=2:BE(B,A)=0
  630. 6130 PA(B)=INT(SE*2):GOTO 4900
  631. 6140 PRINTTAB(8)"6 "D$(6)
  632. 6150 PRINTTAB(8)"2 "D7$
  633. 6160 PRINTTAB(8)"3 "D5$
  634. 6170 SE=SE-10:J2(A,B)=6:J4(A,B)=2:BE(B,A)=0
  635. 6180 PA(B)=INT(SE*2):GOTO 4900
  636. 6190 PRINT""D8$:PRINT"  30 PAPAGEIEN ZUSAETZLICH ALS BONUS."
  637. 6200 PRINTTAB(8)"3 "D$(7)
  638. 6210 PRINTTAB(8)"1 ZELT IST UNBRAUCHBAR"
  639. 6220 J5(A,B)=1:J2(A,B)=3:BE(B,A)=0:PA(B)=INT(SE*2)+30:GOTO 4900
  640. 6240 PRINTD9$
  641. 6250 VS=INT(30000*RND(1))+50000
  642. 6260 PRINTD$(1)
  643. 6270 IF VE(B,5)>0THEN PRINTD$(4);VS;"[157],-DM":GE(B)=GE(B)+VS
  644. 6280 BE(B,A)=0:J1(A,B)=3:J2(A,B)=15:J4(A,B)=5:GOTO 4900
  645. 6290 C1=INT(180000*RND(1))+120000
  646. 6300 C2=INT(C1/7)
  647. 6310 PRINTD$(2);C1;"[157],-DM"
  648. 6320 PRINTD$(3)
  649. 6330 PRINTD$(8);C2;"[157],-DM"
  650. 6340 PA(B)=INT(SE*2):GE(B)=GE(B)+C2:GOTO 4900
  651. 6350 ON Z1 GOTO6370,6420,6470,6510,6560
  652. 6360 WE(B)=INT(SE*60):GOTO 4830
  653. 6370 PRINTTAB(8)"1 "D3$
  654. 6380 PRINTTAB(8)"1 ZELT IST UNBRAUCHBAR"
  655. 6390 PRINTTAB(8)"3 "D5$
  656. 6400 SE=SE-18:J1(A,B)=1:J4(A,B)=1:BE(B,A)=0
  657. 6410 WE(B)=INT(SE*60):GOTO 4900
  658. 6420 PRINTTAB(8)"6 "D$(6)
  659. 6430 PRINTTAB(8)"2 "D7$
  660. 6440 PRINTTAB(8)"5 "D5$
  661. 6450 J2(A,B)=6:J4(A,B)=2:BE(B,A)=0
  662. 6460 WE(B)=INT(SE*46):GOTO 4900
  663. 6470 PRINT""D8$:PRINT" 860 WELLENSITT. ZUSAETZLICH ALS BONUS."
  664. 6480 PRINTTAB(8)"3 "D$(7)
  665. 6490 PRINTTAB(8)"1 ZELT IST UNBRAUCHBAR"
  666. 6500 J5(A,B)=1:J2(A,B)=3:BE(B,A)=0:WE(B)=INT(SE*60)+860:GOTO 4900
  667. 6510 PRINTD9$
  668. 6520 PRINTD$(1)
  669. 6530 VS=INT(20000*RND(1))+30000
  670. 6540 IF VE(B,6)>0THEN PRINTD$(4);VS;"[157],-DM":GE(B)=GE(B)+VS
  671. 6550 BE(B,A)=0:J1(A,B)=1:J2(A,B)=10:J4(A,B)=3:GOTO 4900
  672. 6560 C1=INT(160000*RND(1))+60000
  673. 6570 PRINTD$(2);C1;"[157],-DM"
  674. 6580 C2=INT(C1/5)
  675. 6590 PRINTD$(3)
  676. 6600 PRINTD$(8);C2;"[157].-DM"
  677. 6610 WE(B)=INT(SE*60):GE(B)=GE(B)+C2:GOTO 4900
  678. 6620 PRINT"SIEGER[146]:";A$(B);".GES.KAPITAL";GE(B);"[157],-DM"
  679. 6630 FOR A=1 TO CC
  680. 6640 IF A=BTHEN 6670
  681. 6650 GE(A)=GE(A)+(AK(A)*AT)-KR(A)
  682. 6660 PRINT"SPIELER ";A$(A);" GUTH.:";GE(A);"[157],-DM"
  683. 6670 NEXT A
  684. 6680 CLR:PRINTTAB(10)"NEUES SPIEL"
  685. 6685 POKE198,0
  686. 6690 GET B$:IF B$=""THEN 6690
  687. 6700 GH=1:FF=1
  688. 6710 RUN40
  689. 6800 DIMD$(20)
  690. 6805 D$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  691. 6810 D1$="          ":D2$=D1$+D1$+D1$
  692. 6820 D3$="LANDROVER TOTALSCHADEN"
  693. 6830 D4$="SEILE SIND UNBRAUCHBAR"
  694. 6840 D5$="LEUTE KAMEN UM'S LEBEN"
  695. 6850 D6$="GEWEHRE GINGEN VERLOREN"
  696. 6860 D7$="ZELTE SIND UNBRAUCHBAR"
  697. 6870 D8$="     GUTER EINSATZ DER MANNSCHAFT:"
  698. 6880 D9$="   DAS SCHIFF IST IM STURM GESUNKEN."
  699. 6890 D$(1)="DIE GESAMTE AUSRUESTUNG GING VERLOREN !"
  700. 6900 D$(2)="   1 DIAMANT IM WERT VON:"
  701. 6910 D$(3)="  WURDE VON DEINER MANNSCHAFT GEFUNDEN"
  702. 6920 D$(4)=" DIE VERSICHERUNG ZAHLT:"
  703. 6930 D$(5)="GEWEHRE SIND UNBRAUCHBAR"
  704. 6940 D$(6)="NETZE GINGEN VERLOREN!"
  705. 6950 D$(7)="NETZE SIND UNBRAUCHBAR"
  706. 6960 D$(8)="        DEIN ANTEIL:"
  707. 7000 RETURN
  708.